/ Ustawi wywietlacz graficzny
/ w skali szaroi pod adresem 3000h

lxi h,3078h
mvi b,8
petla1:
 mov m,a
 add b
jnz petla1
petla2:
 sub b
 mov m,a
jnz petla2
jmp petla1